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This is nominally the October issue of the Newsletter, but 
delayed due to a combination of circumstances. Fear not, 
assuming that the material is submitted, NL~#6 will be published 
in January on schedule. 


Most of the people whose membership expired with the last 
Newsletter, have renewed so there must ከፎ some purpose to all 
this. With this issue another group of members will have 
received four copies. These people will find a renewal slip 
enclosed. To simplify administration, all memberships are being 
standardised to August. If you ere renewing mow please send only 
$7.50. This will cover your membership until the summer of 1984 
and include three more copies of OAK LEAVES. 


Eack issues of the Newsletter can be obtained by sending $3.00 
per issue, ዕኮ $9.00 for issues #1 to Zä together with the 


introductory NL-#0. 


John Wood 
November 1983 


This Newsletter is published by Atom Users’ Group Canada, 
812 Cabot Trail, Milton, ONT. L9T 3M8 for the benefit of members 


of the Group, 
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The next meeting of the Halton loacal group will be on Tuesday 
November 29th. at St. Marks school, 2145 Upper Middle Road, 
(between Brant Street and Guelph Line) in Burlington. Cassette 
tapes of programs from the Users’ Group library will be 


available. 





ፖጫፓ FLXGHTY Software Review 
Flight simulations are amonast the most popular pieces of 
software for many computers. This one for the Atom is no 
exception. The program, written entirely in BASIC, loads from 


#2900 to F3EFF but uses a full 12k of RAM. 


It comes with good documentation  includina an "Idiot’s Guide to 
Fiying" and a chart of London's Heathrow airport area. After 
choosing your starting altitude and setting the wind strength 
and direction, you are off and flying. 


Apart from the final approach, all flying is done or 
instruments. The display shows your speed, power, altitude and 
rate of climb. There are also readings for the roll anale, 
attitude of the plane, and the status of the flaps and 
undercarriage. For navigation. you can select any one of ten 
navigation stations. The display shows the plane’s heading, the 
bearing of the plane from the logged on mavigetion station arid 
the distance from the station. 


Control is through the use of different keys. For example <LOCK> 
is bank left, <ክፎኮፐ> is bank right, “H> is nose down and SPACE 
BAR> is pull back. This is a real time simulation. There is no 
need to press <RETURN> and multiple keypresses are detected 
without having to release keys. 


If by pure luck, or after 50 hours or so of training flights, 
you manage to find yourself approaching one of the runways at a 
suitable height then you are switched from instruments to 
visual. When the runway comes into sight, all the instruments 
except an artificial horizon disappear, and you are on your owrn. 
This may seem a little unfair but it is not too had if you are 
already on a stable descent flight path. By this stage you must 
have your wheels down and have sufficient flap or you will crash 


for sure, 


There are random effects built in which can force a crash even 
in a perfectly executed flight. For example, if the flaps 
develop trouble and stick at a setting below Z0, then you will 
eventually crash. But, as the program is in BASIC, you can take 
these out if you wish, or change them for other features. The 
simulation is quite complex enough without random traps. As the 
author (a Jumbo Jet pilot called Selby) says "If you find it 
difficult to find the runway and land the 747, it is because 
these things are extremely hard to do in real life." | 


Several friends who are pilots rate it as realistic and 
enjoyable. They certainly made a better job of landing the plane 
than I did. Overall rated at least 4+ out of S but only 
recommended for those who have at least four hours to spare each 


evening. 


INTERESTING ADDRESSES 


We have a motley selection of ROM adresses which are the entry 
points for useful routines. 


#FE66 used in BASIC as LINK #FE66 this is equivalent to WAIT. It 
waits for the start of the flu back signal eiving s delay of up 
to 1/60 second, It can be used ta cut out the snow when writing 
to the screen by executing this routine immediately before the 
screen access. (See A, T, ,&F, p-154). The routine can be used in 


assembler as JSR #FE66, 


The routine at #FE83 gives a delay which depends on the value in 
the X register, Used in essembler JSR #FES83 eives a delay of 
X/60 seconds. 


LINKing to #FESA in  EASIC or  JSK #FE8A in assembler gives a 
delay of 1/10 second, This is the routine used to control the 
repeating speed when <REPT> is pressed. 


| 
The routine at #FD69 clears the screen and homes the cursor 
similer to FP.$12. That at W#ED7D homes the cursor similar to 
F.$30. 


#FE08 initiates a routine which scrolls the screen one line up. 


None of these routines require special entry conditions, other 
to set the X register for the routine at #FE83, and all of them 
end imn sn RTS instruction. 


LINE FEEDS 


Eric Hameister sends in this little tip for people who 
"have disabled the automatic line feed on their printer. 
On power up the Atom will not send a line feed character 
(decimal 10). To allow line feeds to be sent ?#FE should 
be reset to 05, Eric’s program provides 8 vers short 
machine code routine which can be stored on tape. This 
routine can then be executed from within WordFack with 


XRUN "PR", 


G.10;USE SOME CONVENIENT 
ADDRESS FOR F, EITHER IN 
ELOCK ZERO OR JUST BELOW 
THE END OF YOUR MEMORY 
AS I HAVE DONE HERE 
10 ዮ=።ቆ35ኛፅ ፤ 5=ኮ 
20L;LDàÀ @0;STA ቆዞክፎ፥ኮፐውቱ፥ጋ፲ 
30 Fe" XSAVE""PR''",&8S5,8F,$13 
40 END . 
The $13 in line 30 saves typing by allowing the compiled 
code to be saved using only the <ርዐኮኛ> and <REFT> keys. 


CH ርጋ ኮን = 


Eric puts the compiled code "PR" st the head of a few 
convenient tapes. If he forgets to reset ?#FE before 
going into WordPack, he finds it faster to use this than 
to break, reset #FE, and then repair the break in the 


text. 


THE FORTH PAGE 


SCR ቆ S5 

Ü ( Tracer ፦ 1 re. FD VS/2 83/10/17) VOCABULARY TRACER IMMEDIATE 
1 TRACER DEFINITIONS 0 VARTAELE ?TRACE 0 VARIABLE #INDENT 
2 ፥ CREIN ( ..) CR #INDENT ሀ SPACES ; 
3 1 TRACE ?TRACE @ NOT DUP ?TRACE ! IF 0 SINDENT ! THEN 5; 
4 + STACK ( ,,) CRIN ," "STACK ፥ * DEFTH IF SP@ 2 - SO 2 - 
D DO ፲ @ U, -Z +LOOF ," "#* ELSE ," 'EMFTY * THEN ; f 
6 $ (t>, Ç <+) ?TRACE @ IF STACK CR¥IN R 2 - NFA ID, 

7 1 #INDENT +! THEN + --ኃ 
SCR ቆ Dé 

0 ( Tracer for debueeinp - 2 re, FD ህ5/2 83/10/17) 
i (43 E ox? ?TRACE @ IF -1 #¥INDENT +! STACK THEN 5 | 
2 + X ( 55) CCOMPILE] + COMFILE (3) LELCOMFILEZJ TRACER +; 

3 IMMEDIATE 

4 ፥ኘፕ ( 44) COMPILE (4). ECOMFILE2J + + IMMEDIATE 

5 3A 80 OR ' X NFA i+ ር! ( rename X as ፥ ) 

6 35 80 OR ' Y NFA i+ C! ( rename Y as * ) 

7 + ON 1 ?TRACE ! ፥ ፥ OFF 0 ?TRACE ! +$ FORTH DEFINITIONS 
OK 
SCR # 60 

0 ( >CFANOQBRANCH\BRANCH 83/10/15) 

4 + SCFA ( free) 2* LATEST FFA CFA ! 

2 ( comeiles FFA from a code definition into latest CFA) ; 

3 

4 CREATE OBRANCH € f..) 28ጳ2 >CFA SMUDGE 

5 CREATE BRANCH ( ..) 288D >CFA SMUDGE 

6 5 

7 
DK 
SCR 70 : | 

83/10/15) 
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CASE control statements arres Eaker - 1 

CASE ( ..n) ?COM" CSF @ !CSP 4 + IMMEDIATE 

OF ( n..n) 4 ?PAIRS COMFILE OVER COMPILE = 

COMPILE üERANCH HERE 0 » COMFILE DROF 5 + IMMEDIATE 
ENDOF ( feet) 5 ?7FAIRS COMPILE ERANCH HERE 0 + SWAF 
2 CCOMPILE] THEN 4 + IMMEDIATE 

ENDCASE ( ree? 4 ?FAIRS  COMFILE DROF  EEGIN SF? CSP @ = 0= 


WHILE 2 CCOMPILE] THEN REFEAT CSF ! ¢ IMMEDIATE -— 
7i u 1 | 
CASE control statements arres Eaker ፦ 2 83/10/15) 


DEZ € n..n) 4 ?PAIRS COMFILE OVER  COMFILE SWAF COMPILE < 
COMPILE OBRANCH HERE 0 +  COMFILE DROP 5 + IMMEDIATE : 


OF> € meet) 4 ?PAIRS COMPILE OVER  COMFILE SWAF COMPILE ER 
COMPILE OBRANCH HERE 0 + COMFILE DROF 5 + IMMEDIATE 
K : 














Page four lists ፳ number of FORTH utilities contributed by Ray 
St. Laurent, of Mare, ONT. Screens 55,56 provide a trace 
feature. Enter TRACER ON to start. Any subsequent words defined 
will | be traceable. The logic flow and stack values will be 
displayed when words are executed. Enter TRACER OFF to end the 
tracing. enter FORTH to enable subsequent words to be compiled 
without the extra trace features, 
| 


Screens 70,71 present CASE control words similar to those in 
FASCAL. 


Ray is developing a terminal emulator application using FL8, We 
hope to print further details in a future issue, 


| HARDWARE 





Summer must be a slow time for hardware hackers. Most of the 
contributions received during the past few months were on 
software. However there is considerable interest im the 
hardware. Several people have written asking for more step by 
step details op building boards for which schematics have been 
published. If someone who has built an expansion board of any 
kind, would take the trouble to write a detailed account, this 
would be much appreciated. Keep it simple and don’t assume ary 
Prior knowledge, 





Readers have asked where they can obtain the 64 way headers and 
connectors mentioned in  NL-44, These can be obtained from 
Westburme Electric Supply Ltd. 300 Steeprock Drive, Downsview, 


ONT. M3J 289, 


Milan Frybort of Scarborough, ONT. (298-1758). reports that he 
and a (friend both experience the same problem with the colour 
board. Vertical lines im high resolution graphics, which are 
supposed to be printed in red, are only printed im the correct 
colour if there are more than two of them consecutively, 
Otherwise they are printed in black. Does amybody know the 


remadu? 


FOR SALE 


Colour board -J.H. Termeulen, KR 4, Trenton, ONT. (613) 392-9864 


after ó pm, 


Acorn Atom $600. 12K RAM + 12K ROM. ROM selector board, printer 
interface, VIA Bus and all buffers. Atom Calc, Word-Fack, and 
Toolbox on FROM. All available software and literature included 
(32 cassette tapes in all). Flus  Superscope cassette 
recorder/player. Vince Scarpelli, 122 L’Amoreaux Dr. Agincourt, 
ONT. HIN 3L3. Telei(416) 499-9323, 


Atom .12K/12K + colour + Toolbox, variety of software including 
FORTH —$300, Jim McDonald (416) 966-7765 after 6pm, 

Atom  12K/12K + Toolbox, Power supply, E/H monitor, cassette 
recorder. Games Pack #1 and #9, Music Synthesiser, LISF, Math 
Pack £1. Manual and four other books. $500. 

Bruce Smith Tel? (416) 884-6393 after ó pM. 


Non commercial advertisements, which are published free of 
charge can only be accepted fron current members of the Users 
Group and will be restricted to a maximum of 4 lines. 
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Timer one has 4 orerating modes of which 


suited for most software arrlications. 
1) Generate a single time-out interrurt, 
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The interrupt is similar to a GOSUE,; however the current 
contents of the X and Y recisters should be recorded in vour 
interrurt routine. The lou bute of the counter should be read 
#6804 to clear the interurt ( if in mode 2 the counter will 
restart ), When sour routine is over uou should first reset these 
X & Y registers and Pull the accumulator value of the stacks as 


the computer automatically rushes it on the stack before 


executing the  interruri. Finally sn RTI command is 


return from the interrurt, 


entered to 





The following is a samele rroeram that ruts a red strire at, the 
tor of the screen while a BASIC FOR-NEXT loo» is counting. When 
the procram endsers the interrupt routine keers running and will 
interrurt the system its-self. 


| 
10 0፲ዘ005 
45 F,B=0T05;DD?E=-1;N, 
20 ዮ,ቆ21፤ዕ608,8፤605.8፤ዮ.ቆሬ 
25 LINKDDO 
30 ፣፥,ፅ።=ዐ0ፐዐ፲ዐዐበ፥ዞዮንፅ' ፥አ, 
40 F, "FINISHED" 
50 ፻. | 
100aP=#3500 
1050 | 
110NN DISABLE DATA REG, ñ ኣኣ ENABLE IER 
120 :DDOLDAG#7F;STA#EBOF;LDAG#£CU:STA#*ES0OE 
130\\ CHOOSE MODE 2 
140 LDAGX40;STASEBOE 
150 LDAGSFFsSTA#E8043LDAGECOsSTASEBOS 
160 LDAG@#24;STA#204;LDA0@#35:STA#205 
170 RTS | ^" 
200NN STORE REGISTERS 
2101DD1TXA;FHA;TYA;FHA 
220NN INTERRUPT ROUTINE 
225 LDA£EB804 ኣኣ CLEAR INTERRUFT 
230 LDX@07LDAG#FF 
240 ፤0028ፐልቆፀ8000 7X3 INX3 CFX@324 ENEDD2 
25ዐኣኣ REMOVE REGISTERS FROM STACK 
260 FLA: TAYIPLA$ TAXSFLA 
:270 RTI | 
2801;R. 


The notes given above are by Tim Mackinnon and were the basis of 


@talk given to s meeting of the Halton and region local Users 
Group. Tim has installed link Z on his board and uses the 6527 


chip to interrupt the processor. He can set up a real-time 
clock, running at the top of his screen, independant of other 


programs. He ከ85 added oan alarm routine to BEEF and print 
preset message at the required hour. The clock display can he 


turned off if required. The constantly running interrupt does 
not affect disk accesses put would interfere with the cassette 


operating system, 


| SCREEN DUMP FOR GEMINI 10X 


10 REM screen dump routine for gemini 10x by colin hinz 


20nF.$21$2$27$49 
30 A=#C03S=~32Z;E=#E0 
40 ered TO #1740 S.E;F.$27$75$0$1;F,J-0 TO 31; M=#80 


45 F.K-0 TO 7 ፻ 
50 Xs£98000-I-J:Dz480;N-1;F.Lzà TO 0 S.,SIIF X?L&M;D=D+N 


60 NzN*NIN.$P.$D2 MzM/23 NON SP +N. 
70 P.$27$50$6$3''1E. 














LINEFIT by john korten 


This program allows the user to enter a series of dat 


The program then finds the line of best 
corelation between x and y values, 


1!#80=#32FC 
2?t*t0D-?$80; ?tDE-?481 
37ቆ23=7ቆ8047ቆ24ዓ=7ቆ81 
10REM FIRST ORDER LINEAR REGRESSION 
1SP.$12°" THIS FROGRAM FROMFTS FOR DATA FAIRS AND RESFONDS " 
20P."MITH SLOFE AND INTERCEPT" 
25F, "ENTER DATA FATIRS(END TO STOF ENTRY OF FAIRS)"" 
26P.'"EG, ?3,4"'"?7,8,-9,8" ^"?3E-4,-0.098"  " "END" ^ " ** 
30DIM 4(64)j;jFDIM ZAAC30)3FDIM XEE(C30);E-0 
3SIN.$4 
40IF $A="END" G.a 
4SE-E*1; XAACE)-UAL $A 
SOFOR J-0 TO LEN(C&D;IF J?A-CH"," Geb 


Son, / 

&0bSA-SA«Je12XBE(E)-VAL $41G.25 

64aP. ^'^" N X Y" 

65@=33F.J=1T0 B;P.'JIFP." "ሂልል(ህ)" — "XEBGDIN. 


70P.’"DO YOU WISH TO CHANGE ANY OF THE FAIRS "jIN.$4 
7SIF $A="NO" OR $6-"N'jG.c 
80IN."ENTER NUMBER OF FAIR YOU WISH TO RE-ENTER"C 
8SIN.'"ENTER FAIR AS BEFORE'$A 
90XAACC)-UAL $A;F.J-0TO LEN(AD) ; IF A?J-CH"," 5,100 
99N.J 
14100ቆል=ቆሷ+ህ+1 4 XEBECCO -UAL $655G.a 
125cXA-XAA5 CA) ፤ ZB-XA65(12:X872X266(10; XQ28XX8 ፤ XF2XSXXEE CIT) 
126ZC=XEE C1) ZD=ZC;1iZT=ZC;XZ=XCxZC 
130F,J=2TO E;FIF ZA<ZAA(J) ZA=ZAACI) 
13SFIF ZB>ZAACU) XE=ZAAñ(J) 
140FIF XC«ZEBOJ) ZC=ZEE(J) 
145FIF XD-XEB(CJ) XD-XBE(CGCJ) 
190X8zXS*XAACJ) P; ZTSXT*XEBCJ) 2 ZG-XQ* ZAA CIO XXAA COD 
19SXFzXF*XAACOD)XXBBCOOPXZ-XZ*XEBOJ)KXBBCJ);IN.J 
160XM-(EXZP-ZXSXXTO)/(CBXXQ-ZGXZS) 
165XI-(OXT-ZHMXXS)/E 
166XU-Xü/E-(XS/EXXS/E);XZUZZ/E-C(OXT/BXXT/B) 
167XR-XMXx*(SQR XV)/SQR XU 
170FF.'"SLOFE = "XM 
180FF.'"INTERCEFT - "XI 
181FF.'"VARIANCE OF X VALUES "XV 
182FP.'"UARIANCE OF Y VALUES "XU 
183FP.'"AUERAGE OF X VALUES "%S/E 
184FF.'^"AUERAGE OF Y VALUES "XT/E 
185FF.'"CORRELATION COEFFICIENT "ZR jLI.tFFES3 
190CLEAR4;FOR J-1TO E 
195X2XC(CXAA CJ) -XEOXC250/ CKA-XE20) *3 
200Y=Z((XBE(J)-XD)x(186/(XC-ZD)))+3 
208FLOT12,(X-2) , Y; PLOTS, (X+2),Y 
210PLOT12,X,(Y-2) ;FLOTS, X, CY*2) 
215N.J 
220XAA65(0)-2XMXXZB*XIP XBECO)ZAZMXZATAXI 
228Y2XCUOXAA C0) -XD) x (186/ CXC7ZD0 ) ) 3; FLOT12,3, Y 
230X-2X(COCA-XBY«(250/CCA-XE022 ፤ፕ=ሯ‹ (ሯ88(0)-ጄ0)#(186/ (ጄር-20) ) )+3 
235FL0TS5,(X+3),Y;LI,$FFE3 F,$12 


| 240P.'" YOU NOW HAVE SEVERAL OFTIONS" 


245P.'"  10MODIFY DATA" 

250P.^" 2)፲ከፐጀጄክዮዐኒልጳፐ፲0ከ” 

295P.'"  3)NEM CASE" 

260P.'"  4)END" ፡ 

26SIN, "ENTER NUMBER CORRESPONDING TO OFTION DESIRED'C 

270IF C=4 END 

275፲፻ C=3 RUN 

280፲፻ ር=1 G.a 

285IF C<>2 G.240 ‹ 

290P.'"DO WISH TO ENTER X OR Y VALUES "IN, $A IF $A="Y" 6,350 


| 300IN.'"ENTER X VALUE (END TO STOP)"$A;IF $A="END" G,240 
| 305XX=VAL $A;;XY=XMxXX+ZXI 


310FP, "THE Y VALUE COMPUTED IS "ZY" X="XX1G,300 

350IN, "ENTER Y VALUE (END TO STOP)"$AJIF $A="END" G.240 
J85XYzUAL $4;XX-(OXY-XIO)/XM 

360FP.'"THE X VALUE COMPUTED IS "XX" Y= "ZY;G.330 


fit and 


gives 





B pairs, 


a 


NEWT-RALFH hy john kortern 
| 

1REM WRITTEN EY JOHN E, KORTEN 

2REM AUGUST 12,1983. 

10 K=0;@=0 | 
20 REM STATE FROGRAM FUNTION 
25 F.$12; ?1$E1-0 SÉ 
40F."THIS PROGRAM ALLOWS THE USER TO ENTER A FUNCTION,FLOT IT " 
4SF "AND THEN FIND IT’S REAL ROOTS USING NEWTON- RALPHSON TECHN" 
SOP. "IQUES" ("THIS PROGRAM ALLOWS THO OFTIONS" 


80F, 7" | 2. POLYNOMIAL" 

81P., " I | END" 

90P. ^ ^ "ENTER MUERE. OF OFTION DESIRED" 
95 IN. A | 


100 ፲፻ A=1;Gla 
102 IF A-2;P.$12;E. 
104 G.90 | 
1505፻,5ቆ12. | 
160IN. "ENTER DEGREE OF FOLYNOMIAL (INTEGERS ዐክዚኘን" ,ዩ 
170FDIM Z%AACE+1) ፲8=0 /0=ጾ 
180 F."ENTER COEFFICIENT OF ",D,"TH TERM"; 
182FIN.,XZ4 | 
184 AAD) =%A 
190 DzD-1;IF D<0 6.230 
200 C.180 | 
210FIN.''"ENTER LOWER LIMIT OF INDEPENDANT VARIABLE", %B 
220FIN.'"ENTER UPPER LIMIT OF INDEPENDENT VARIABLE") ZC 
225D=850=03F, |/"THE POLYNOMIAL YOU ENTERED IS;"/" ዖ" 

26 FP. " (”ሂልጳ(0)")፳(፳ሖ"0")+" 
227 DzD-1;IF D>01G.226 
228 ዞዮ,ኗለል(0) 
230P.'"UPON END OF PLOT ENTER 1 TO FLOT OVER NEW RANGE,2 TO " 
231P."FIND MINIMUM AND MAXIMUM VALUES,3 TO FIND ROOTS,4 TO ST" 
232P."ART OVER’ "WAIT" 
2354J-0.0;FIF ZB<0.0 XJe-XE 
236 FIF XB»0.0 iXJ--XE 
241 REM GET RANGE OF DEPENDENT VARIABLE 
260XDsXC-XE;E-100 
279 XF-100000.0;26--100000000.0;6-1 
280 GOS.z | 
281 XI-0.0  . 
290XH-XG-XF;FIFXF«0 THEN XI--XF 
299 E=100 | 
300 6=2፲ር[ዚጀልስ84ዓ፤608,2 
310 P.$7:HAITIP.$7;INPUT K 
311 IF Kz1;P.$12; P#E1=036.210 
312 IF K-2/6.4000 
313 IF ፣ሄ=3፲6.ር 
320 6.20 
999zXEz1,0;F«BiXX-XB 

1000 IF C-1:GOTO 1010 

1001 M=Z((XIX(192/(ZG+X1)))) 

1002 PLOT12,0,M:PLOTS5,256,M 

1003 N-XCCL X C256/ EE 

1004 PLOT12,N,0;PLOTS,N,192 

1010 00 XX-XX*XD/E 

1011 %Y=0.03H=0 

1020 DO H=H+1 

1030 XYsXYxXX*X6A(EB-Ht1):U.Hz(CE 1) 

1090IF G-1 GOS.v 

1091 IF G=2 GOS.t 

1100 ፻ህ, ሂ፪>=፪6፤8. 

1120vFIF XY<XF1XF=XY 

1130 FIF %Y>%G}%G=%Y 

1131 R, 

1140ቲህ=፪((ሂ፪+፪ህ )፳(25ፊ/ (“CHS IIE ህ=ጄ( (፳ኘ+ጄ፲)ዶ(192/ (26+፡53) › › 

1159 PLOT12,U,UJR. 

4000 P.$12 p?#E1= 0 

4001FF./"THE X VALUES RANGE FROM "ZE" TO "XC 

4002FP, "THE Y VALUES RANGE FROM "XF" TO "XG;G.210 

4500cP.$12/"TO| FIND A ROOT ENTER A VALUE NEAR THE ROOT DESIRED" 

4505FIN.%X 

1 01Hz0:DÜ HzH*1iZYsXYXXX*ZAA(E-H*1)3U. Hz CE 1) 
51542220:Hz0:DÜ HzH*11XZeXZXXX*ZAA(CE-H*1)X(B-H*1) JU. HB 

ie. (XY/XZ)1FIF ል፳88(ጄዐን>፲ድ-ሬ ZX=XX-(XY/ZZ)1G,4510 

45252ZX=XX+(ZY/XZ);FF, "THE ROOT FOUND IS EQUAL TO "XX 

4530FF, "WITH AN APPROXIMATE ERROR OF "XGj 

4550ጅ, “ * "HIT ek KEY TO CONTINUE" LI,#FFE3;G.,22 








The following book-keeping 
Fefferlaw, ONT. He uses 

straight. It is written for a 
printer control codes may have to be changed for other 


program was sent in by Req 
it to assist in keeping bank. 
Centronics 737 Mice 


Feers of 
records 
so the 
rinters. 


Also, the sub-routine to round off the zeros doesn’t like inputs 


of less than 10 cents. This 
most entries is not a problem. 


SREM '"EOOK-KEEFING' 

20DIM NN(32,4(200,EC200,F C12,MCIL220 , RC322 ,ህ(3) ,ቭ(3) ,F-1 
SOF.$12,',°," book keeping routine"'^ 

40F," USE CALCULATOR NÜTATION"''" IE: 123,45"%" 
44IN."DO YOU WISH A FAGE TITLE’ "HEADING OR NOT (Y QR 


can probably be corrected 


N) 


but for 


"SWF. 


ASIF W?0z-89 AND W?0z278 F."ONLY Y OR N KECOGNTIZED'"''5;(G,44 


481IF $W-'"Y" G.60 
SÜIF $Hz"N" G.105 
607*.$21,$2,$15 
70r." DATE 

| BOF." DEE IT BALANCE ",$15,$13,$3 

| 105P.$6,$12,$125,^" 

| 110IN."PREUVIOUS EALANCE'*E&;XESUALEPF.^ 
120IN."DATE (DAY/MO./YR.O"$M;FP."' 

| 130IN." "REMARKS" SR;FP.* 

1140IF LENR232 F. "REMARKS STATEMENT ፲00 LONG'' 

 1S0IF LENR2Z32 F."ONLY 32 CHARACTERS INCLUDING" USFACES 

| 160IF LENR=32 F. “71G.,130 
170IN."CREDIT OR DEBIT (C OR DO'"$U;P,* 


180፲፻ ህ70<>ፅፖ AND U?0z»68 F."ONLY C OR D RECOGNIZED";G.170 


| 190IN. "AMOUNT" $A; XASVALA IP. ' 
| 200IF$U-"C" ር.,220 

2101F$U-"D" G.300 
220ሂዩ=ሂዩ+ሂጄል8:ፐዩ፲8 5. ቆ21 ፣608 2 

| 230F.$12,$2 

ይፍ. o cde $M." CELER 

,250DO0F." ";UNTIL COUNT-SS-(LENAD iP. $6 

,260D0F." "UNTIL COUNTs79-(LENE) $F. $6,$13, $3 
,270F.$12,$6 

|280ዮ, "CREDITs" $4" BALANCES "$b" 4’ 

,290G.120 

|300XESXE-XA;STRZE,E;P.$21;:G08.2a 

,310F.$12,$2 | 

320ጅ," .",$M," ",ቆክ 

33000ኮዮ." "jUNTIL COUNT=6é=-(LENA);F., $A 

 340DDF.,' ";UNTIL COUNTz79-(LENE) ; P, $E,$13,$3,$6 
350ዮ, "ዐኗፎዩ፲ፐ="ቆል" 5ለዚልከርዩ="ቆ8ዩ"””” ና 
360G.120 

10003N=#FFE3;[ 

1010:NN1 STX FjRTS ` 

1020:NNO--LDA @46;LDX-@LEN(E)-—-1 
10301NN2 CHE U E, X:EEQ. NN1 

1040 DEX;EPL NN2;BMI NN0;32 
1050LI.NN0;Yz?F*3;E?Y-13jR. 


AL 


REMARKS CREDIT" 


LOWED" 





BREAKOUT ነ 


The back page of this issue lists a version of BREAKOUT by John 
Lasruk of Toronto. He has provided the following notes and 
comments to document the listino. 


This program, based on one in "39 Tested Frograms for the Acorn 
Atom", was designed with a lot of extra diddly bits to make it 
run faster and more unpredictably. Unlike the original, this one 
has assembler routines to make for a noisier gange, help move the 
"paddle", etc. Also GOTOs and GOSUBs have been labelled, an 
effort which, by the way, we should make on all programs to get 
them to run faster. The difference for this program was almost 
amazing. 


The "ball" always moves at 45 (or 135) degrees, you may notice. 
Futting in routines to add "English" to the hall involves a few 
IF statenents which slows things down considerably, 


You have five chances to break through the striped barrier. 
Eversg time the antimatter handball destroys a section of wall, 
you get S or more points depending on how hieh you are, If you 
make $000 points, the screen clears and you start again, with 
the barrier changing from screen 3 onwards. Point totals 
continue to increment. Of course, when the ball bounces down to 
the paddle, you must move the paddle to knock the ball back up 
again, Paddle controls are? <Z> -Left; <ግ> -Riaht. 


The numbers st the top of the screen mean (from left to right)? - 
current scoret high score! turns left, 
When the game is over, just hit <SFACE BAR» and start again. 


PROGRAM NOTES; 


10-30! Numbers are tokenised for speed. 

403 Read keyboard, store in #80, 

50-60! Yer standard sound routine. Lines 520, 530, 590 do fun 
things with it. 

70-803! Clean off bottom line. 

90-100: Plot and unplot paddle, 

1201 Fixed sound routine to produce a speedy "bip!" when the 
wall is hit. This routine saves time and speeds up the game by 
avoiding having to poke numbers every time it is invoked. 
160-260: Set up the screen. 

2901 L| determines whether the ball starts off moving left or 
right, Note that "U.L" means "U.L<>0" and runs faster. 

300-3303 Position the paddle and toss up the ball, “whiz!". 
340-580: The heart of the program. All the IF statements check 
to see if the ball has hit the wall, the frame edges or gone off 
the bottom. 400-410 tests the state of the screen. If there is 
something occupying the position in front of the ball, Q=1. (See 
AT &F. pa.87) 

590-640: Later screens. The unusual shapes are designed to 
bounce the ball around unpredictably. 





i REM breakout by john lasruk 

3 REM based on a program by. g-hillebrand 
10Rz0jE-E90;U-€392;N-48000;G-4128005; ህ=።ፋ80 3 Iz$E002; ህሀ፲ቭህህ1 0 
BSODIMVS; ! ህ= 14081020; U!4=#102 
40F=G3F.$21; CS USREFE7ZLISTYISRTS 

2501 VUZLDY@15} tUU3LDX490; t UUADEX; ENEUUA 
60LDAT;EORGA;STAI;DEY;BENIEUUSG;KTS 
7Z0:UUVOLDXGOLDAGT40; 4UUVZSTASB81E0,X; INXCFX0G323 ENEVU7 3 RTS 
90: VUSLDXU;LDAGTX74; STAÓ£8B1E0,X;LDAGT78; STOEBIETI,X;RTS 
፡ 1002 VUGLDXU$;LDAGXE40; STOSG1EU0,X; STA#BIEL,X3RTS 
110: UV8LDYO,10j;$:2UU9LDXG150; ፥ UV10DEX; ENEVUT10 
120LDAIj; EORG4;STAL;DEY;ENEUUS;RTSj;2;l.$6 
140A=0;F=13T=1 
190CLEARO;?tE1z0;0-10 
i 160F , =ቁ8000ፐዐቆ801ር5.4ና) 'Wz420202020;N. 
:170F, W=#8040TO#805FS.43 'H£€CFCFCFCF$N. 
180F .W=#8080TOFSOEFS.43 'WEFFFFFFFF$N. 
190F .W=#8060TOF807FS.43 'Wz17F7F7F7FjN. 
200F .W=#S0COTO#SOFFS.43 'WT7F7F7F7F iN. 
210፲፻ዞፐ>ቿኮ , ዘ=ቆ8120ፐ0ቆ81 3ዞ8, ዓነ !Wz442414241;N, 3 GOS 736.230 
220F.,W=g8100TO#811FS.,4!W=#g#DO0OFADOFA N, 
230፻ , ዘ=ቁ8020ፐ0ቆቶ803፻ 3 2 283: F70 N, 
SE W=#8040TO#81C0S.#203 28 4óñ N. 

SOF .W=#805F TO#81DFS.4#203 #7ዘ= 5 ማቹ 
202.7... 175;0- :P. $30, A,R,0 
28046ኘ።=ዓ 14 #=0 4 ጀ=1 
290050 LzR.X2;U.L 
SO00X=A.R.418+24 
310LI.UU0;?7U-16;S-16;LI.UUS 
330F,Zz1T030j;jWAIT;jN.;F.Zz100T0105,-15; ?PE-ZILIT.UUZJN. 
..840aFLOT1S,X,Y$ XoX*L 2 Y2Y*K 
3590IFX«20R X^61LzLX-1;?E-60;LI.UUZ2 
3ሪዐ፲ዞሃ።>ቶሯክ።=ክጆ-1 4 ?E-100;LI.UUVZ2 
370IFYs3LT.UUVS 
380IFYz10z0-1;F.0;IFO0 LI.UU0;GO0S.ajG.d 
390IF0z06G.3510 
400PzX/2*(47-Y0)/ 3KX32*N 
410Gz(?FRCU?TCXR1* CA7- YO X3X22) X500 ; IFQ0G.D 


420FLOT15,X,Y;FLOT11,1,0;74zA*5; IFY229G0S. a; IFFZ0P-1;6.150. 


ASOK=KK-13F.$30,A,R 
440LT.UVV8 
4S50bPLOT13,X,Y;LI.G 
4A60IF?J-*FF Goa 
470LT.VU6 
480IF?J-58;S-8-1;IFSz05-70 
ዓፇዎዐ፲ዞ 2ህ።ጋ፲  8=5ቶ1 ፥ ፲፻ 5።305=30 
300?U-S;LI.UUS;G.a8 
SEA R=A 
20?B-2246j;F.Z- 1፲02547ዩ=78 ፤ቆ55 sLI.VV2Z3N.e 
53078 #E73F.Z=1T0503 PB= PRS FEL SLI.VVZ3Nn. 
SA0LI.*FFE3:G.140 
S90aq6765*2; IF YS35A=At6 
5ፅዐ፲፻ፕ>37ልጳ።ጳ+፥20 , 75=ዓ0 4[.፲ , ህህ 
97 OIFA/T=S5000F=03T=T+i 
S80R,. 
S90q?Ez£tE7;F.Zz1T011; PEZ?ETXETL;LI.UU2:N.;R. 
600rIFTz3F,Wz£8120TO£813FS,4; 'W=#EDDEEDDE IN, ፥ Cx $40 
ሪ፲ፀ፲ዞፐ።ዳኛ , ዘ=ቆ8140ፐ0ቶ815የ8, 41 'W-E£FSFAFSFATIN. ; Cz £60 
ó20IFT-;4D-zA.R.X62*63;F , ዘ=ቕ81 ዓ010ቅ815ኛ 4 PW=DIN. $2 C470 
ሬ30፻ , ዘዛ“ቁ8፲ሪዐፐዐቆፀጊፖኮ 3 7ዘ=ር፥ከዘ፥ 








